home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / ErrSignal / TestSignals_4.p < prev    next >
Encoding:
Text File  |  1992-03-24  |  737 b   |  50 lines  |  [TEXT/PJMM]
  1. program main;
  2.  
  3.     uses
  4.         ErrSignal;
  5.  
  6.     var
  7.         mainCatch: Integer;
  8.  
  9.     procedure TestProc;
  10.         var
  11.             catch: Integer;
  12.  
  13.         procedure SubProc;
  14.             var
  15.                 dummy: Integer;
  16.         begin
  17.             writeln('entering SubProc');
  18.             Signal(1);
  19.         end;
  20.  
  21.         procedure Handler;
  22.             var
  23.                 dummy: Integer;
  24.         begin
  25.             writeln('entering Handler');
  26.             SignalHandlerDone;
  27.             Exit(TestProc);
  28.         end;
  29.  
  30.     begin
  31.         writeln('entering TestProc');
  32.         catch := CatchSignal;
  33.         if catch <> 0 then
  34.             Handler;
  35.         writeln('catch established in TestProc');
  36.         SubProc;
  37.     end;
  38.  
  39.     procedure Caller1;
  40.     begin
  41.         TestProc;
  42.     end;
  43.  
  44. begin { main }
  45.     ShowText;
  46.     InitSignals(sigFail);
  47.     mainCatch := CatchSignal;        {Without this - we never return from test Proc - Why?}
  48.     Caller1;
  49.     writeln('returned to main');
  50. end.